package body v8.Class_Accessor_Info is


   -----------------------
   -- Get_Accessor_Data --
   -----------------------

   function Get_Accessor_Data (AI : access uint32_t) return uint32_t is
   begin
      return AI.all - 2 * 4;
   end Get_Accessor_Data;

   -----------------------
   -- Get_Accessor_This --
   -----------------------

   function Get_Accessor_This (AI : access uint32_t) return uint32_t is
   begin
      return AI.all;
   end Get_Accessor_This;

   -------------------------
   -- Get_Accessor_Holder --
   -------------------------

   function Get_Accessor_Holder (AI : access uint32_t) return uint32_t is
   begin
      return AI.all - 1 * 4;
   end Get_Accessor_Holder;



end v8.Class_Accessor_Info;
